
module Demo01 where

import Lambola.Rewriting

import Data.Char



-- see C2Hs docs...
demo01 = underscoreToCase "GTK_WINDOW_TOPLEVEL"

demo02 = utc "GTK_WINDOW_TOPLEVEL"


temp01 = deleteWhite $ everyWord properName 
                     $ tokenize (many1 $ noneOf "_") 
                     $ "GTK_WINDOW_TOPLEVEL"

